dsf
dsf(f,var)
Func
Local qa,periode,borne1,borne2
2*pàperiode
-periode/2àborne1
periode/2àborne2
{a0=1/periode*ò(f,var,borne1,borne2),an=2/periode*ò(f*cos(n*var),var,borne1,borne2),bn=2/periode*ò(f*sin(n*var),var,borne1,borne2)}àqa
entier(qa,n)
EndFunc